Updated March 11, 2024.
---
title: "Payahunaduu Streamflow"
output:
flexdashboard::flex_dashboard:
storyboard: true
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(lubridate)
library(hms)
library(glue)
library(plotly)
library(DT)
library(crosstalk)
streamflow2 <- read_csv("C:/Users/envir/Documents/106/Streamflow/LADWP_Webscraping/streamflow2.csv",
col_types = cols(Streamflow_CFS = col_number(),
DateTime = col_datetime())) %>%
mutate(Date = as.Date(DateTime)) %>%
group_by(Site, Date) %>%
summarise(CFS = mean(Streamflow_CFS))
streamflow2$CFS <- round(streamflow2$CFS, 1)
raw <- read_csv("C:/Users/envir/Documents/106/Streamflow/LADWP_Webscraping/streamflow2.csv",
col_types = cols(Streamflow_CFS = col_number(),
DateTime = col_datetime()))
```
Updated `r format(Sys.time(), '%B %d, %Y')`.
North
=======================================================================
### **Rock Creek** at Owens River
```{r}
RockCreek <- ggplot(data = filter(streamflow2, Site == "RockCreek" ), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(RockCreek)
```
### **Pleasant Valley Reservoir** outflow
```{r}
PVOut <- ggplot(data = filter(streamflow2, Site == "PleasantValleyOutflow" ), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(PVOut)
```
### **Bishop Creek** total flow
```{r}
BishopAll <- ggplot(data = filter(streamflow2, Site == "BishopCreeKTotal"), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(BishopAll)
```
Central
=======================================================================
### **Big Pine Creek**
```{r}
BPCreek <- ggplot(data = filter(streamflow2, Site == "BigPineCreek" ), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(BPCreek)
```
### **Fish Springs** at Railroad
```{r}
FishSprings <- ggplot(data = filter(streamflow2, Site == "FishSprings"), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(FishSprings)
```
### **Owens River** below Big Pine Creek
```{r}
OwensRiver <- ggplot(data = filter(streamflow2, Site == "OwensRiverBelowBPC" ), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(OwensRiver)
```
South
=======================================================================
### **Tinemaha Res** Outflow
```{r}
TinemahaResOutflow <- ggplot(data = filter(streamflow2, Site == "TinemahaResOutflow" ), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(TinemahaResOutflow)
```
### **Lone Pine Creek** at USGS
```{r}
LonePineCreek <- ggplot(data = filter(streamflow2, Site == "LonePineCreek"), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(LonePineCreek)
```
### **LA Aqueduct** at Alabama Gates
```{r}
LAAAlabamaGates<- ggplot(data = filter(streamflow2, Site == "LAAAlabamaGates" ), aes(x = Date, y = CFS)) +
geom_line(color = "blue") +
theme_bw(base_size=13) +
labs( x = NULL, y = "FLow CFS", title = NULL) +
scale_x_date()
ggplotly(LAAAlabamaGates)
```
Data
=======================================================================
```{r filters}
cleaned <- raw %>%
mutate(Site = case_when(
Site == "RockCreek" ~ "Rock Creek",
Site == "PleasantValleyOutflow" ~ "PV Dam Outflow",
Site == "BishopCreekThru" ~ "Bishop Creek Through Powerplant",
Site == "BishopCreekAround" ~ "Bishop Creek Around Powerplant",
Site == "BakerCreek" ~ "Baker Creek",
Site == "BigPineCreek" ~ "Big Pine Creek",
Site == "FishSprings" ~ "Fish Springs",
Site == "OwensRiverBelowBPC" ~ "Owens River Below Big Pine",
Site == "TinemahaResOutflow" ~ "Tinemaha Res Outflow",
Site == "IndependenceCreek" ~ "Independence Creek",
Site == "LonePineCreek" ~ "Lone Pine Creek",
Site == "CottonwoodCreek" ~ "Cottonwood Creek",
Site == "LAAAlabamaGates" ~ "LA Aqueduct Alabama Gates",
Site == "LAACottonwoodGates" ~ "LA Aqueduct Cottonwood Gates",
Site == "LAACottonwoodGates" ~ "LA Aqueduct Cottonwood Gates",
Site == "BishopCreeKTotal" ~ "Bishop Creek Total Flow",
TRUE ~ Site
)) %>%
mutate(Date = as.Date(DateTime)) %>%
mutate(Time = format(DateTime, format = "%H:%M:%S")) %>%
select(-DateTime)
sd <- SharedData$new(cleaned)
filter_checkbox(
id = "raw",
label = "Site",
sharedData = sd,
group = ~Site,
inline = TRUE
)
```
```{r}
Streamflow_table <- datatable(sd, extensions = c( "Buttons", "Scroller"),
filter = 'top',
rownames = FALSE,
width = "100%",
style = "bootstrap",
options = list (dom = 'Blrtip',
searchHighlight = FALSE,
buttons = c('copy','csv','excel','print'),
scrollCollapse = FALSE
),
class = c('compact cell-border stripe hover'))
Streamflow_table
```